home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
listings
/
v_02_01
/
2n01049a
< prev
next >
Wrap
Text File
|
1990-11-12
|
221b
|
20 lines
function search(var s : string) : integer;
label
1;
var
i : integer;
begin
for i := MAX downto 1 do
if s = table[i] then
begin
search := i;
goto 1;
end;
search := 0;
1:
end;